home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
ques_221.zip
/
SAMPLES.ZIP
/
DATABASE.ZIP
/
Q-NEW2.Q-A
< prev
next >
Wrap
Text File
|
1991-03-01
|
6KB
|
347 lines
:top
gotolabel main
:Main
Displayfile q-einlei
:Frage
display "If you want to fill in the questions, then please|"
display "type 'YES'. Type 'NO' to abort the registration! : "
ask 4 1
if 1 = "yes"
setvar 1 = ""
gotolabel weiter
endif
if 1 = "no"
gotolabel cancel
endif
gotolabel frage
:
:weiter
let erroron = off
display "Please wait..."
checkdata dat-1 31
if 31 = "1"
loaddata dat-1 1
loaddata dat-2 2
loaddata dat-3 3
loaddata dat-4 4
loaddata dat-5 5
loaddata dat-6 6
loaddata dat-7 7
loaddata dat-8 8
loaddata dat-9 9
loaddata dat-10 10
loaddata dat-11 11
loaddata dat-12 12
endif
let erroron = on
display "||"
if 31 = "1"
gosublabel allready
gotolabel ask
endif
:101
display "Your name...............................: "
askedit 34 1
if 1 = ""
beep
gotolabel 101
endif
:
:102
display "Your adress.............................: "
askedit 34 2
if 2 = ""
beep
gotolabel 102
endif
:
:103
display "Your code and city......................: "
askedit 34 3
if 3 = ""
beep
gotolabel 103
endif
:
:104
display "Your data telephone number..............: "
askedit 34 4
if 4 = ""
beep
gotolabel 104
endif
:
:105
display "Your age................................: "
askedit 3 5
:
:106
display "Your computer type......................: "
askedit 34 6
:
:107
display "Your modem type.........................: "
askedit 34 7
:
:108
display "Your terminal program...................: "
askedit 34 8
:
:109
display "How did you get our telephone number....: "
askedit 34 9
:
:110
display "Are you a sysop yourself (Y/N)..........: "
ask 1 10
:
if 10 = "Y"
:111
display "Your nodenumber.........................: "
askedit 34 11
:
:112
display "Your bbs telephone number...............: "
askedit 34 12
:
endif
display "||"
:Ask
Display "|Did you enter everything correctly (Y/N) ? "
ask 1 30
display "|"
if 30 = "Y"
gotolabel end
endif
if 30 = "N"
gotolabel new
endif
ifnot 30 = "Y"
beep
beep
display "||Wrong choise. Only 'Y' or 'N' are valid choises...|"
gotolabel Ask
endnotif
:
:end
if 31 = "1"
displayfile q-all
endif
if 31 = "0"
Displayfile q-ende
endif
Ask 0 31
display "|Now saving your data, please wait"
OutputAnswer ""
PostInfo
let erroron = off
OutputAnswer "Name...............: " 1
OutputAnswer "Adress.............: " 2
OutputAnswer "Code / City........: " 3
OutputAnswer "Telephone..........: " 4
OutputAnswer "Age................: " 5
OutputAnswer "Computertype.......: " 6
OutputAnswer "Modemtype..........: " 7
OutputAnswer "Terminalprogram....: " 8
OutputAnswer "Got bbs from.......: " 9
display "."
writedata dat-1 1
display "."
writedata dat-2 2
display "."
writedata dat-3 3
display "."
writedata dat-4 4
display "."
writedata dat-5 5
display "."
writedata dat-6 6
display "."
writedata dat-7 7
display "."
writedata dat-8 8
display "."
writedata dat-9 9
display "."
writedata dat-10 10
if 10 = "Y"
OutputAnswer "Sysop..............: " 10
OutputAnswer "Node-Nr............: " 11
OutputAnswer "Telephone BBS......: " 12
OutputAnswer ""
writedata dat-11 11
writedata dat-12 12
endif
let erroron = on
display "|"
start q-new last
:
:new
if 10 = "N"
Display "Which line do you wish to change ( A-J ) ? "
endif
if 10 = "Y"
Display "Which line do you wish to change ( A-L ) ? "
endif
ask 1 30
display "|||"
if 30 = "a"
gosublabel 101
gosublabel allready
gotolabel ask
endif
if 30 = "b"
gosublabel 102
gosublabel allready
gotolabel ask
endif
if 30 = "c"
gosublabel 103
gosublabel allready
gotolabel ask
endif
if 30 = "d"
gosublabel 104
gosublabel allready
gotolabel ask
endif
if 30 = "e"
gosublabel 105
gosublabel allready
gotolabel ask
endif
if 30 = "f"
gosublabel 106
gosublabel allready
gotolabel ask
endif
if 30 = "g"
gosublabel 107
gosublabel allready
gotolabel ask
endif
if 30 = "h"
gosublabel 108
gosublabel allready
gotolabel ask
endif
if 30 = "i"
gosublabel 109
gosublabel allready
gotolabel ask
endif
if 30 = "j"
gosublabel 110
gosublabel allready
gotolabel ask
endif
if 30 = "k"
gosublabel 111
gosublabel allready
gotolabel ask
endif
if 30 = "l"
gosublabel 112
gosublabel allready
gotolabel ask
endif
ifnot 30 = "fake"
:FAKE
display "||"
beep
beep
display "Wrong choise! Please try again...|"
pause 2
gotolabel new
endnotif
:
:cancel
clearscreen
display "|||"
display "New user registration aborted!|"
display "|To bad you don't want to register yourself as|"
display "a member... Well, maybe next time!|"
display "|Press <ENTER> to return"
ask 0 1
start q-new abort
:
:allready
display "|||A. Your name............................: "
listanswer 1
display "B. Your adress..........................: "
listanswer 2
display "C. Your code and city...................: "
listanswer 3
display "D. Your data telephone number...........: "
listanswer 4
display "E. Your age.............................: "
listanswer 5
display "F. Your computer type...................: "
listanswer 6
display "G. Your modem type......................: "
listanswer 7
display "H. Your terminal program................: "
listanswer 8
display "I. How did you get our telephone number.: "
listanswer 9
display "J. Are you a sysop yourself (Y/N).......: "
listanswer 10
if 10 = "Y"
display "K. Your nodenumber......................: "
listanswer 11
display "L. Your bbs telephone number............: "
listanswer 12
endif
: